50 LV=5:F=0
100 GOSUB 1000
104 GOSUB 1050
110 PRINT"[147]"
112 PRINT"SPIDER                      [158]SCORE";F
114 PRINT"TRAP                        [158]LIVES";LV
116 FOR T=0TO1:PRINT"[159]******************    ******************";:NEXT
118 FORT=0TO16:PRINT"**                                    **";:NEXT
120 PRINT"******************    ******************";
122 PRINT"****************************************";
130 FOR T=0TO17:X=680*RND(5):POKE1224+X,42:NEXT
135 POKE1762,32:POKE1763,32:POKE1764,32:POKE1765,32
140 POKE 1802,32:POKE1803,32:POKE1804,32:POKE1805,32
142 POKE1842,32:POKE1843,32:POKE1844,32:POKE1835,32
144 POKE1882,32:POKE1883,32:POKE1884,32:POKE1885,32
146 POKE1922,32:POKE1923,32:POKE1924,32:POKE1925,32
150 POKE 53269,15
160 W=PEEK(53279):Y=PEEK(53278)
170 Q=192
180 FORT=0TO800:NEXT
200 SYS(937)
210 Q=Q+1:IF Q=194THENQ=192
214 POKE2040,Q
215 SYS(937)
216 D=INT(4*RND(2)+1)
217 POKE49522,D
218 SYS(937)
220 SYS49152
225 W=PEEK(53279)
226 IF W=1 THEN 300
227 Y=PEEK(53278)
228 IF Y=3THEN300
229 IF Y=5THEN 500
230 SYS(937)
240 W=PEEK(53279):IF W=1THEN 300
245 F=F+1:PRINT""TAB(33)F
250 GOTO 200
300 LV=LV-1:PRINT""TAB(33);LV
302 FORT=0TO10:POKE53286,2:FORG=0TO50:NEXTG:POKE53286,13
305 FORG=0TO50:NEXTG:NEXTT
310 POKE54290,128:POKE54272,75:POKE54277,0:POKE54278,240
312 POKE54286,12:POKE54287,5
314 POKE54296,207:POKE54276,21
320 FORL=0TO15:POKE54273,PEEK(54299)AND224
322 FORT=0TO100:NEXT:NEXT:POKE54276,0
324 FORT=0TO500:NEXT
325 IF LV=0THEN 328
326 GOSUB 1034
327 GOTO 110
328 POKE53269,0:PRINT"[147]"
330 PRINT"SORRY, THE SPIDER GOT YOU."
332 PRINT:PRINT:PRINT TAB(15)"SCORE ";F
340 GOTO 600
500 Z=54272
502 RESTORE
504 FORL=0TO24:POKEZ+L,0:NEXT
506 POKE Z+3,8:POKE Z+5,41:POKEZ+6,89:POKE Z+14,117:POKEZ+18,16
508 POKE Z+24,143
510 READFR,DR
512 IF FR=0 THEN 540
514 POKE Z+4,65
516 FOR T=1TODR*2
518 FQ=FR+PEEK(Z+27)/2
520 HF=INT(FQ/256):LF=FQAND255
522 POKEZ+0,LF:POKEZ+1,HF
524 NEXT
526 POKE Z+4,64
528 GOTO 510
540 FOR L=0TO24:POKEZ+L,0:NEXT
542 F=F+250:PRINT""TAB(33)F
550 GOSUB 1034
552 GOTO 110
600 PRINT:PRINT TAB(10)"PLAY AGAIN  Y OR N"
610 POKE198,0:WAIT198,1:GETA$
622 IF A$="Y" THEN 640
630 IFA$<>"N"THEN610
635 GOTO60000
640 F=0:LV=5
644 GOSUB 1034
660 GOTO 110
1000 PRINT"[147]"CHR$(142):POKE53281,0:POKE53280,0:POKE53248+29,0
1001 PRINT"[159]PLEASE WAIT ONE MOMENT...."
1002 PRINT"USES JOYSTICK PORT 1."
1003 READ FR,DR:IF FR=0 THEN 1005
1004 GOTO 1003
1005 REM    READ ML SCROLL DATA
1006 FORX=49152TO49528:READ A:POKEX,A:NEXT
1008 POKE49523,2:POKE49524,36:POKE49525,5:POKE 49526,21
1010 REM    READ ML JOYSTICK DATA
1012 FORX=828TO949:READA:POKEX,A:NEXT
1014 REM    READ SMITH SPRITE DATA 1
1016 FOR X=12288TO12350:READA:POKEX,A:NEXT
1018 REM    READ SMITH SPRITE DATA 2
1020 FORX=12352TO12414:READA:POKEX,A:NEXT
1022 REM    READ SPIDER SPRITE DATA
1024 FORX=12416TO12478:READA:POKEX,A:NEXT
1026 REM    READ MICHIGAN SPRITE DATA
1028 FORX=12480TO12542:READA:POKEX,A:NEXT
1030 REM    READ SAVE ME SPRITE DATA
1032 FORX=12544TO12606:READ A:POKEX,A:NEXT
1034 REM    PREPARE SPRITES
1036 POKE2041,194:POKE2042,195:POKE2043,196:P=192:POKE2040,P
1038 POKE53285,10:POKE53286,13:POKE53287,8:POKE53288,14:POKE53289,7
1040 POKE53290,3
1042 POKE53248,170:POKE53249,210:         POKE53251,135:POKE 53252,170
1043 POKE53250,168
1044 POKE53253,62:POKE53254,196:POKE53255,52
1046 POKE53276,7
1047 POKE53264,0
1048 RETURN
1050 PRINT"[147]":PRINT""TAB(12)"SPIDER TRAP"
1052 RM=30:POKE54273,15:POKE54277,16:POKE54278,240
1054 POKE54287,RM:POKE54296,31:POKE54276,21
1056 RM=RM-1:IF RM=10 THEN 1060
1057 FORT=0TO100:NEXT
1058 GOTO1054
1060 FORI=0TO24:POKE54272+I,0:NEXT
1061 W=PEEK(53279):Y=PEEK(53278)
1062 RETURN
1090 REM    MUSIC DATA
1092 DATA 4817,2,5103,2,5407,2,8583,4,5407,2,8583,4
1094 DATA 5407,4,8583,12,9634,2,10207,2,10814,2,8583,2
1096 DATA 9634,4,10814,2,8583,2,9634,4,8583,12,0,0
1100 REM    ML SCROLL DATA
1102 DATA 174,114,193,224,3,144,3,76,117,192,188,114,193,140,121,193,174
1104 DATA 118,193,232,202,32,30,193,172,121,193,173,119,193,201,2,208,10
1106 DATA 169,32,72,173,33,208,72,76,50,192,177,90,72,177,92,72,204
1108 DATA 116,193,240,20,200,177,90,72,177,92,136,145,92,104,145,90,200
1110 DATA 204,116,193,208,238,240,18,136,177,90,72,177,92,200,145,92,104
1112 DATA 145,90,136,204,115,193,208,238,173,119,193,201,0,208,5,104,104
1114 DATA 76,111,192,104,145,92,104,145,90,236,117,193,208,160,96,172,116
1116 DATA 193,200,189,114,193,170,32,30,193,173,120,193,201,2,208,19,136
1118 DATA 169,32,153,122,193,173,33,208,153,162,193,204,115,193,208,239,240
1120 DATA 16,136,177,90,153,122,193,177,92,153,162,193,204,115,193,208,240
1122 DATA 236,117,193,240,37,202,32,30,193,172,116,193,200,136,177,90,72
1124 DATA 177,92,32,48,193,145,93,104,145,90,32,56,193,204,115,193,208
1126 DATA 234,236,117,193,208,221,240,46,202,206,118,193,232,32,30,193,172
1128 DATA 116,193,200,136,32,48,193,177,90,72,177,92,32,56,193,145,92,104
1130 DATA 145,90,204,115,193,208,234,236,118,193,208,221,238,118,193,232
1132 DATA 32,30,193,173,120,193,201,0,240,20,172,115,193,136,200,185,162
1134 DATA 193,145,92,185,122,193,145,90,204,116,193,208,240,96,189,89,193
1136 DATA 133,91,24,105,212,133,93,189,64,193,133,90,133,92,96,72,152
1138 DATA 24,105,40,168,104,96,72,152,56,233,40,168,104,96,0,40,80
1140 DATA 120,160,200,240,24,64,104,144,184,224,8,48,88,128,168,208,248
1142 DATA 32,72,112,152,192,4,4,4,4,4,4,4,5,5,5,5,5
1144 DATA 5,6,6,6,6,6,6,6,7,7,7,7,7,3,0,4,0,4,1,1
1150 REM    ML JOYSTICK DATA
1152 DATA 173,1,220,74,176,3,206,1,208,74,176,3,238,1,208,74,176,42,173
1154 DATA 0,208,208,31,173,16,208,41,1,208,16,173,16,208,9,1,141,16,208
1156 DATA 169,80,141,0,208,96,234,234,173,16,208,41,254,141,16,208,206
1158 DATA 0,208,96,234,234,74,176,32,238,0,208,240,30,169,80,205,0,208
1160 DATA 208,20,173,16,208,41,1,240,13,173,16,208,41,254,141,16,208,169
1162 DATA 0,141,0,208,96,234,234,173,16,208,9,1,141,16,208,96,234,234
1164 DATA 32,60,3,32,60,3,32,60,3,32,60,3,96
1170 REM    SMITH SPRITE DATA1
1172 DATA 0,0,0,0,60,0,4,255,0,4,235,0,4,20,0,4,20,0,5,255,80,5,255,80
1174 DATA 0,255,16,0,60,16,0,60,16,0,60,16,0,40,0,0,60,0,0,60,0,0
1176 DATA 60,0,0,56,0,0,48,0,0,48,0,0,48,0,0,32,0
1180 REM    SMITH SPRITE DATA 2
1182 DATA 0,0,0,0,60,0,0,255,16,0,235,16,0,20,16,0,20,16,5,255,80,5,255,80
1184 DATA 4,255,0,4,60,0,4,60,0,4,60,0,0,40,0,0,60,0,0,60,0,0,60,0
1186 DATA 0,44,0,0,12,0,0,12,0,0,12,0,0,12,0
1190 REM    SPIDER SPRITE DATA
1192 DATA 0,0,0,0,0,0,64,0,1,80,0,5,68,0,17,65,0,65,0,170,0
1194 DATA 0,170,0,170,130,170,128,170,2,128,170,2,131,40,194,12,40,48
1196 DATA 48,40,12,48,0,12,48,0,12,48,0,12,0,0,0,0,0,0,0,0,0,0,0,0
1200 REM    MICHIGAN SPRITE DATA
1202 DATA 0,10,0,0,42,0,0,37,0,0,37,0,0,37,0,0,164,0,0,4,0,5,255,212
1204 DATA 5,255,212,0,255,192,0,63,0,0,63,0,0,63,0,0,63,0,0,42,0
1206 DATA 0,51,0,0,51,0,0,51,0,0,51,0,0,51,0,0,34,0
1210 REM    SAVE ME SPRITE DATA
1212 DATA 0,0,0,0,0,0,28,228,156,16,164,144,28,228,152,4,163,16,28,163,28
1214 DATA 0,0,0,0,0,0,0,0,0,32,159,24,49,144,24,42,144,24,36,156,24
1216 DATA 36,144,24,32,144,24,32,144,0,32,144,0,32,159,24,0,0,0,0,0,0
60000 REM CONNECT TO LS
60010 PRINT"[147]RECONNECTING...":LOAD"HELLO CONNECT",8